home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Demos / Component Software / FileFlex 2.0.3.sit / FileFlex 2.0.3 / FileFlex-Director / FileFlex Xtras / -Validation Suite / 00015_about.ls < prev    next >
Encoding:
Text File  |  1996-07-21  |  368 b   |  15 lines
  1. on mouseUp
  2.   if the machineType = 256 then
  3.     set theAbout to the moviePath & "-FFABOU.DIR"
  4.     set the windowType of window theAbout to 4
  5.   else
  6.     set theAbout to the moviePath & "-About FileFlex"
  7.   end if
  8.   tell the stage
  9.     puppetPalette("System - Mac")
  10.   end tell
  11.   set the title of window theAbout to "About FileFlex"
  12.   open(window theAbout)
  13.   cursor(-1)
  14. end
  15.